/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / System 7 / Frontier / Frontier SDK 2.1.sit / Frontier SDK 2.1 / Toolkits / IAC Tools / iacreceive.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 69 61 63 72 65 63 | 65 69 76 65 2e 63 00 00 |..iacrec|eive.c..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 0d dd 00 | 00 01 92 a8 20 be 8e a8 |........|.... ...|
|00000060| 20 be 8e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 | .......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c9 36 00 00 |........|.....6..|
|00000080| 2f 2a a9 20 43 6f 70 79 | 72 69 67 68 74 20 31 39 |/*. Copy|right 19|
|00000090| 38 38 2d 31 39 39 32 20 | 55 73 65 72 4c 61 6e 64 |88-1992 |UserLand|
|000000a0| 20 53 6f 66 74 77 61 72 | 65 2c 20 49 6e 63 2e 20 | Softwar|e, Inc. |
|000000b0| 20 41 6c 6c 20 52 69 67 | 68 74 73 20 52 65 73 65 | All Rig|hts Rese|
|000000c0| 72 76 65 64 2e 2a 2f 0d | 0d 23 69 6e 63 6c 75 64 |rved.*/.|.#includ|
|000000d0| 65 20 22 69 61 63 69 6e | 74 65 72 6e 61 6c 2e 68 |e "iacin|ternal.h|
|000000e0| 22 0d 0d 0d 2f 2a 0d 38 | 2f 32 34 2f 39 32 20 44 |".../*.8|/24/92 D|
|000000f0| 57 3a 20 54 68 69 73 20 | 66 69 6c 65 20 69 6e 63 |W: This |file inc|
|00000100| 6c 75 64 65 73 20 72 6f | 75 74 69 6e 65 73 20 74 |ludes ro|utines t|
|00000110| 68 61 74 20 61 72 65 20 | 6c 69 6b 65 6c 79 20 74 |hat are |likely t|
|00000120| 6f 20 62 65 20 75 73 65 | 64 20 62 79 20 63 6f 64 |o be use|d by cod|
|00000130| 65 20 0d 74 68 61 74 20 | 72 65 63 65 69 76 65 73 |e .that |receives|
|00000140| 20 41 70 70 6c 65 20 45 | 76 65 6e 74 73 2e 0d 2a | Apple E|vents..*|
|00000150| 2f 0d 0d 0d 42 6f 6f 6c | 65 61 6e 20 49 41 43 72 |/...Bool|ean IACr|
|00000160| 65 74 75 72 6e 65 72 72 | 6f 72 20 28 73 68 6f 72 |eturnerr|or (shor|
|00000170| 74 20 65 72 72 6e 2c 20 | 53 74 72 32 35 35 20 65 |t errn, |Str255 e|
|00000180| 72 72 73 29 20 7b 0d 09 | 0d 09 2f 2a 0d 09 72 65 |rrs) {..|../*..re|
|00000190| 74 75 72 6e 20 61 6e 20 | 65 72 72 6f 72 20 73 74 |turn an |error st|
|000001a0| 72 69 6e 67 20 61 6e 64 | 20 6e 75 6d 62 65 72 20 |ring and| number |
|000001b0| 69 6e 20 61 6e 20 41 70 | 70 6c 65 45 76 65 6e 74 |in an Ap|pleEvent|
|000001c0| 2e 0d 09 0d 09 53 44 4b | 20 32 2e 30 3a 20 69 66 |.....SDK| 2.0: if|
|000001d0| 20 74 68 65 20 73 74 72 | 69 6e 67 20 69 73 20 6e | the str|ing is n|
|000001e0| 69 6c 20 6f 72 20 65 6d | 70 74 79 2c 20 64 6f 6e |il or em|pty, don|
|000001f0| 27 74 20 70 75 73 68 20 | 69 74 20 6f 6e 20 74 68 |'t push |it on th|
|00000200| 65 20 72 65 70 6c 79 2e | 0d 09 2a 2f 0d 09 0d 09 |e reply.|..*/....|
|00000210| 72 65 67 69 73 74 65 72 | 20 41 70 70 6c 65 45 76 |register| AppleEv|
|00000220| 65 6e 74 20 2a 73 61 76 | 65 64 65 76 65 6e 74 3b |ent *sav|edevent;|
|00000230| 0d 09 72 65 67 69 73 74 | 65 72 20 42 6f 6f 6c 65 |..regist|er Boole|
|00000240| 61 6e 20 66 6c 3b 0d 09 | 0d 09 73 61 76 65 64 65 |an fl;..|..savede|
|00000250| 76 65 6e 74 20 3d 20 49 | 41 43 67 6c 6f 62 61 6c |vent = I|ACglobal|
|00000260| 73 2e 65 76 65 6e 74 3b | 0d 09 0d 09 49 41 43 67 |s.event;|....IACg|
|00000270| 6c 6f 62 61 6c 73 2e 65 | 76 65 6e 74 20 3d 20 49 |lobals.e|vent = I|
|00000280| 41 43 67 6c 6f 62 61 6c | 73 2e 72 65 70 6c 79 3b |ACglobal|s.reply;|
|00000290| 20 2f 2a 70 75 73 68 20 | 70 61 72 61 6d 73 20 6f | /*push |params o|
|000002a0| 6e 20 74 68 65 20 72 65 | 70 6c 79 20 72 65 63 6f |n the re|ply reco|
|000002b0| 72 64 2a 2f 0d 09 0d 09 | 66 6c 20 3d 20 74 72 75 |rd*/....|fl = tru|
|000002c0| 65 3b 0d 09 0d 09 69 66 | 20 28 65 72 72 73 20 21 |e;....if| (errs !|
|000002d0| 3d 20 6e 69 6c 29 20 0d | 09 09 69 66 20 28 65 72 |= nil) .|..if (er|
|000002e0| 72 73 20 5b 30 5d 20 3e | 20 30 29 0d 09 09 09 66 |rs [0] >| 0)....f|
|000002f0| 6c 20 3d 20 49 41 43 70 | 75 73 68 73 74 72 69 6e |l = IACp|ushstrin|
|00000300| 67 70 61 72 61 6d 20 28 | 65 72 72 73 2c 20 6b 65 |gparam (|errs, ke|
|00000310| 79 45 72 72 6f 72 53 74 | 72 69 6e 67 29 3b 0d 09 |yErrorSt|ring);..|
|00000320| 09 09 0d 09 69 66 20 28 | 66 6c 29 0d 09 09 66 6c |....if (|fl)...fl|
|00000330| 20 3d 20 49 41 43 70 75 | 73 68 73 68 6f 72 74 70 | = IACpu|shshortp|
|00000340| 61 72 61 6d 20 28 65 72 | 72 6e 2c 20 6b 65 79 45 |aram (er|rn, keyE|
|00000350| 72 72 6f 72 4e 75 6d 62 | 65 72 29 3b 0d 09 0d 09 |rrorNumb|er);....|
|00000360| 49 41 43 67 6c 6f 62 61 | 6c 73 2e 65 76 65 6e 74 |IACgloba|ls.event|
|00000370| 20 3d 20 73 61 76 65 64 | 65 76 65 6e 74 3b 20 2f | = saved|event; /|
|00000380| 2a 72 65 73 74 6f 72 65 | 2a 2f 0d 09 0d 09 72 65 |*restore|*/....re|
|00000390| 74 75 72 6e 20 28 66 6c | 29 3b 0d 09 7d 20 2f 2a |turn (fl|);..} /*|
|000003a0| 49 41 43 72 65 74 75 72 | 6e 65 72 72 6f 72 2a 2f |IACretur|nerror*/|
|000003b0| 0d 09 0d 0d 76 6f 69 64 | 20 49 41 43 6e 6f 74 68 |....void| IACnoth|
|000003c0| 61 6e 64 6c 65 64 65 72 | 72 6f 72 20 28 76 6f 69 |andleder|ror (voi|
|000003d0| 64 29 20 7b 0d 09 0d 09 | 2f 2a 0d 09 63 61 6c 6c |d) {....|/*..call|
|000003e0| 20 74 68 69 73 20 69 66 | 20 79 6f 75 20 72 65 63 | this if| you rec|
|000003f0| 65 69 76 65 20 61 6e 20 | 41 70 70 6c 65 20 65 76 |eive an |Apple ev|
|00000400| 65 6e 74 20 74 68 61 74 | 20 79 6f 75 20 61 72 65 |ent that| you are|
|00000410| 20 6e 6f 74 20 73 65 74 | 20 75 70 20 74 6f 20 68 | not set| up to h|
|00000420| 61 6e 64 6c 65 2e 0d 09 | 0d 09 77 65 20 72 65 74 |andle...|..we ret|
|00000430| 75 72 6e 20 74 68 65 20 | 73 74 61 6e 64 61 72 64 |urn the |standard|
|00000440| 20 22 65 76 65 6e 74 20 | 6e 6f 74 20 68 61 6e 64 | "event |not hand|
|00000450| 6c 65 64 22 20 65 72 72 | 6f 72 20 72 65 74 75 72 |led" err|or retur|
|00000460| 6e 2e 20 79 6f 75 20 63 | 61 6e 20 73 61 66 65 6c |n. you c|an safel|
|00000470| 79 20 0d 09 72 65 74 75 | 72 6e 20 6e 6f 45 72 72 |y ..retu|rn noErr|
|00000480| 20 74 6f 20 74 68 65 20 | 41 70 70 6c 65 20 45 76 | to the |Apple Ev|
|00000490| 65 6e 74 20 4d 61 6e 61 | 67 65 72 2e 0d 09 2a 2f |ent Mana|ger...*/|
|000004a0| 0d 09 0d 09 49 41 43 72 | 65 74 75 72 6e 65 72 72 |....IACr|eturnerr|
|000004b0| 6f 72 20 28 65 72 72 41 | 45 45 76 65 6e 74 4e 6f |or (errA|EEventNo|
|000004c0| 74 48 61 6e 64 6c 65 64 | 2c 20 6e 69 6c 29 3b 0d |tHandled|, nil);.|
|000004d0| 09 7d 20 2f 2a 49 41 43 | 6e 6f 74 68 61 6e 64 6c |.} /*IAC|nothandl|
|000004e0| 65 64 65 72 72 6f 72 2a | 2f 0d 09 0d 09 0d 42 6f |ederror*|/.....Bo|
|000004f0| 6f 6c 65 61 6e 20 49 41 | 43 6e 65 78 74 70 61 72 |olean IA|Cnextpar|
|00000500| 61 6d 69 73 6f 70 74 69 | 6f 6e 61 6c 20 28 76 6f |amisopti|onal (vo|
|00000510| 69 64 29 20 7b 0d 09 0d | 09 49 41 43 67 6c 6f 62 |id) {...|.IACglob|
|00000520| 61 6c 73 2e 6e 65 78 74 | 70 61 72 61 6d 6f 70 74 |als.next|paramopt|
|00000530| 69 6f 6e 61 6c 20 3d 20 | 74 72 75 65 3b 0d 09 7d |ional = |true;..}|
|00000540| 20 2f 2a 49 41 43 6e 65 | 78 74 70 61 72 61 6d 69 | /*IACne|xtparami|
|00000550| 73 6f 70 74 69 6f 6e 61 | 6c 2a 2f 0d 0d 0d 76 6f |soptiona|l*/...vo|
|00000560| 69 64 20 49 41 43 70 61 | 72 61 6d 65 72 72 6f 72 |id IACpa|ramerror|
|00000570| 20 28 4f 53 45 72 72 20 | 65 72 72 6e 2c 20 53 74 | (OSErr |errn, St|
|00000580| 72 32 35 35 20 74 79 70 | 65 73 74 72 69 6e 67 2c |r255 typ|estring,|
|00000590| 20 4f 53 54 79 70 65 20 | 70 61 72 61 6d 6b 65 79 | OSType |paramkey|
|000005a0| 29 20 7b 0d 0d 09 2f 2a | 0d 09 62 75 69 6c 64 20 |) {.../*|..build |
|000005b0| 61 6e 20 65 72 72 6f 72 | 20 73 74 72 69 6e 67 20 |an error| string |
|000005c0| 74 68 61 74 20 6c 6f 6f | 6b 73 20 6c 69 6b 65 3a |that loo|ks like:|
|000005d0| 0d 09 0d 09 09 54 68 65 | 20 27 72 65 61 64 27 20 |.....The| 'read' |
|000005e0| 76 65 72 62 20 72 65 71 | 75 69 72 65 73 20 61 20 |verb req|uires a |
|000005f0| 73 74 72 69 6e 67 20 70 | 61 72 61 6d 65 74 65 72 |string p|arameter|
|00000600| 20 77 69 74 68 20 61 20 | 6b 65 79 20 6f 66 20 27 | with a |key of '|
|00000610| 2d 2d 2d 2d 27 0d 09 0d | 09 41 6e 64 20 72 65 74 |----'...|.And ret|
|00000620| 75 72 6e 20 69 74 20 74 | 6f 20 74 68 65 20 63 61 |urn it t|o the ca|
|00000630| 6c 6c 65 72 2e 0d 09 2a | 2f 0d 09 0d 09 53 74 72 |ller...*|/....Str|
|00000640| 32 35 35 20 65 72 72 73 | 3b 0d 09 53 74 72 32 35 |255 errs|;..Str25|
|00000650| 35 20 62 73 3b 0d 09 4f | 53 54 79 70 65 20 76 65 |5 bs;..O|SType ve|
|00000660| 72 62 74 6f 6b 65 6e 3b | 0d 09 0d 09 69 66 20 28 |rbtoken;|....if (|
|00000670| 49 41 43 67 6c 6f 62 61 | 6c 73 2e 6e 65 78 74 70 |IACgloba|ls.nextp|
|00000680| 61 72 61 6d 6f 70 74 69 | 6f 6e 61 6c 29 20 7b 20 |aramopti|onal) { |
|00000690| 2f 2a 69 74 27 73 20 6e | 6f 74 20 61 6e 20 65 72 |/*it's n|ot an er|
|000006a0| 72 6f 72 2c 20 73 69 6e | 63 65 20 74 68 65 20 63 |ror, sin|ce the c|
|000006b0| 61 6c 6c 65 72 20 73 65 | 74 20 74 68 69 73 20 66 |aller se|t this f|
|000006c0| 6c 61 67 2a 2f 0d 09 0d | 09 09 49 41 43 67 6c 6f |lag*/...|..IACglo|
|000006d0| 62 61 6c 73 2e 6e 65 78 | 74 70 61 72 61 6d 6f 70 |bals.nex|tparamop|
|000006e0| 74 69 6f 6e 61 6c 20 3d | 20 66 61 6c 73 65 3b 20 |tional =| false; |
|000006f0| 2f 2a 6d 75 73 74 20 62 | 65 20 72 65 73 65 74 20 |/*must b|e reset |
|00000700| 66 6f 72 20 65 61 63 68 | 20 70 61 72 61 6d 2a 2f |for each| param*/|
|00000710| 0d 09 0d 09 09 72 65 74 | 75 72 6e 3b 0d 09 09 7d |.....ret|urn;...}|
|00000720| 0d 09 09 0d 09 76 65 72 | 62 74 6f 6b 65 6e 20 3d |.....ver|btoken =|
|00000730| 20 49 41 43 67 65 74 76 | 65 72 62 74 6f 6b 65 6e | IACgetv|erbtoken|
|00000740| 20 28 29 3b 0d 09 0d 09 | 49 41 43 63 6f 70 79 73 | ();....|IACcopys|
|00000750| 74 72 69 6e 67 20 28 22 | 5c 70 54 68 65 20 27 22 |tring ("|\pThe '"|
|00000760| 2c 20 65 72 72 73 29 3b | 0d 09 0d 09 62 73 20 5b |, errs);|....bs [|
|00000770| 30 5d 20 3d 20 34 3b 0d | 09 0d 09 42 6c 6f 63 6b |0] = 4;.|...Block|
|00000780| 4d 6f 76 65 20 28 26 76 | 65 72 62 74 6f 6b 65 6e |Move (&v|erbtoken|
|00000790| 2c 20 26 62 73 20 5b 31 | 5d 2c 20 34 29 3b 0d 09 |, &bs [1|], 4);..|
|000007a0| 0d 09 49 41 43 70 75 73 | 68 73 74 72 69 6e 67 20 |..IACpus|hstring |
|000007b0| 28 62 73 2c 20 65 72 72 | 73 29 3b 0d 09 0d 09 49 |(bs, err|s);....I|
|000007c0| 41 43 70 75 73 68 73 74 | 72 69 6e 67 20 28 22 5c |ACpushst|ring ("\|
|000007d0| 70 27 20 76 65 72 62 20 | 72 65 71 75 69 72 65 73 |p' verb |requires|
|000007e0| 20 61 20 22 2c 20 65 72 | 72 73 29 3b 0d 09 0d 09 | a ", er|rs);....|
|000007f0| 49 41 43 70 75 73 68 73 | 74 72 69 6e 67 20 28 74 |IACpushs|tring (t|
|00000800| 79 70 65 73 74 72 69 6e | 67 2c 20 65 72 72 73 29 |ypestrin|g, errs)|
|00000810| 3b 0d 09 0d 09 49 41 43 | 70 75 73 68 73 74 72 69 |;....IAC|pushstri|
|00000820| 6e 67 20 28 22 5c 70 20 | 70 61 72 61 6d 65 74 65 |ng ("\p |paramete|
|00000830| 72 20 77 69 74 68 20 61 | 20 6b 65 79 20 6f 66 20 |r with a| key of |
|00000840| 27 22 2c 20 65 72 72 73 | 29 3b 0d 09 0d 09 62 73 |'", errs|);....bs|
|00000850| 20 5b 30 5d 20 3d 20 34 | 3b 0d 09 0d 09 42 6c 6f | [0] = 4|;....Blo|
|00000860| 63 6b 4d 6f 76 65 20 28 | 26 70 61 72 61 6d 6b 65 |ckMove (|&paramke|
|00000870| 79 2c 20 26 62 73 20 5b | 31 5d 2c 20 34 29 3b 0d |y, &bs [|1], 4);.|
|00000880| 09 0d 09 49 41 43 70 75 | 73 68 73 74 72 69 6e 67 |...IACpu|shstring|
|00000890| 20 28 62 73 2c 20 65 72 | 72 73 29 3b 0d 09 0d 09 | (bs, er|rs);....|
|000008a0| 49 41 43 70 75 73 68 73 | 74 72 69 6e 67 20 28 22 |IACpushs|tring ("|
|000008b0| 5c 70 27 22 2c 20 65 72 | 72 73 29 3b 0d 09 0d 09 |\p'", er|rs);....|
|000008c0| 49 41 43 72 65 74 75 72 | 6e 65 72 72 6f 72 20 28 |IACretur|nerror (|
|000008d0| 65 72 72 6e 2c 20 65 72 | 72 73 29 3b 0d 09 7d 20 |errn, er|rs);..} |
|000008e0| 2f 2a 49 41 43 70 61 72 | 61 6d 65 72 72 6f 72 2a |/*IACpar|amerror*|
|000008f0| 2f 0d 09 0d 09 0d 4f 53 | 54 79 70 65 20 49 41 43 |/.....OS|Type IAC|
|00000900| 67 65 74 76 65 72 62 74 | 6f 6b 65 6e 20 28 76 6f |getverbt|oken (vo|
|00000910| 69 64 29 20 7b 0d 09 0d | 09 2f 2a 0d 09 67 65 74 |id) {...|./*..get|
|00000920| 20 74 68 65 20 69 64 2f | 74 6f 6b 65 6e 20 6f 66 | the id/|token of|
|00000930| 20 61 20 76 65 72 62 20 | 66 72 6f 6d 20 61 6e 20 | a verb |from an |
|00000940| 41 70 70 6c 65 45 76 65 | 6e 74 0d 09 2a 2f 0d 09 |AppleEve|nt..*/..|
|00000950| 0d 09 4f 53 54 79 70 65 | 20 76 65 72 62 74 6f 6b |..OSType| verbtok|
|00000960| 65 6e 3b 0d 09 0d 09 69 | 66 20 28 21 49 41 43 67 |en;....i|f (!IACg|
|00000970| 65 74 6c 6f 6e 67 61 74 | 74 72 20 28 49 41 43 67 |etlongat|tr (IACg|
|00000980| 6c 6f 62 61 6c 73 2e 65 | 76 65 6e 74 2c 20 6b 65 |lobals.e|vent, ke|
|00000990| 79 45 76 65 6e 74 49 44 | 41 74 74 72 2c 20 74 79 |yEventID|Attr, ty|
|000009a0| 70 65 54 79 70 65 2c 20 | 28 6c 6f 6e 67 20 2a 29 |peType, |(long *)|
|000009b0| 20 26 76 65 72 62 74 6f | 6b 65 6e 29 29 0d 09 09 | &verbto|ken))...|
|000009c0| 76 65 72 62 74 6f 6b 65 | 6e 20 3d 20 28 4f 53 54 |verbtoke|n = (OST|
|000009d0| 79 70 65 29 20 30 3b 0d | 09 0d 09 72 65 74 75 72 |ype) 0;.|...retur|
|000009e0| 6e 20 28 76 65 72 62 74 | 6f 6b 65 6e 29 3b 0d 09 |n (verbt|oken);..|
|000009f0| 7d 20 2f 2a 49 41 43 67 | 65 74 76 65 72 62 74 6f |} /*IACg|etverbto|
|00000a00| 6b 65 6e 2a 2f 0d 0d 0d | 4f 53 54 79 70 65 20 49 |ken*/...|OSType I|
|00000a10| 41 43 67 65 74 76 65 72 | 62 63 6c 61 73 73 20 28 |ACgetver|bclass (|
|00000a20| 76 6f 69 64 29 20 7b 0d | 09 0d 09 2f 2a 0d 09 67 |void) {.|.../*..g|
|00000a30| 65 74 20 74 68 65 20 69 | 64 2f 74 6f 6b 65 6e 20 |et the i|d/token |
|00000a40| 6f 66 20 61 20 76 65 72 | 62 20 66 72 6f 6d 20 61 |of a ver|b from a|
|00000a50| 6e 20 41 70 70 6c 65 45 | 76 65 6e 74 0d 09 2a 2f |n AppleE|vent..*/|
|00000a60| 0d 09 0d 09 4f 53 54 79 | 70 65 20 76 65 72 62 63 |....OSTy|pe verbc|
|00000a70| 6c 61 73 73 3b 0d 09 0d | 09 69 66 20 28 21 49 41 |lass;...|.if (!IA|
|00000a80| 43 67 65 74 6c 6f 6e 67 | 61 74 74 72 20 28 49 41 |Cgetlong|attr (IA|
|00000a90| 43 67 6c 6f 62 61 6c 73 | 2e 65 76 65 6e 74 2c 20 |Cglobals|.event, |
|00000aa0| 6b 65 79 45 76 65 6e 74 | 43 6c 61 73 73 41 74 74 |keyEvent|ClassAtt|
|00000ab0| 72 2c 20 74 79 70 65 54 | 79 70 65 2c 20 28 6c 6f |r, typeT|ype, (lo|
|00000ac0| 6e 67 20 2a 29 20 26 76 | 65 72 62 63 6c 61 73 73 |ng *) &v|erbclass|
|00000ad0| 29 29 0d 09 09 76 65 72 | 62 63 6c 61 73 73 20 3d |))...ver|bclass =|
|00000ae0| 20 28 4f 53 54 79 70 65 | 29 20 30 3b 0d 09 0d 09 | (OSType|) 0;....|
|00000af0| 72 65 74 75 72 6e 20 28 | 76 65 72 62 63 6c 61 73 |return (|verbclas|
|00000b00| 73 29 3b 0d 09 7d 20 2f | 2a 49 41 43 67 65 74 76 |s);..} /|*IACgetv|
|00000b10| 65 72 62 63 6c 61 73 73 | 2a 2f 0d 0d 0d 4f 53 54 |erbclass|*/...OST|
|00000b20| 79 70 65 20 49 41 43 67 | 65 74 73 65 6e 64 65 72 |ype IACg|etsender|
|00000b30| 20 28 76 6f 69 64 29 20 | 7b 20 0d 0d 09 2f 2a 0d | (void) |{ .../*.|
|00000b40| 09 67 65 74 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |.get app|lication|
|00000b50| 20 73 69 67 6e 61 74 75 | 72 65 20 66 72 6f 6d 20 | signatu|re from |
|00000b60| 61 64 64 72 65 73 73 20 | 61 74 74 72 69 62 75 74 |address |attribut|
|00000b70| 65 2e 20 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |e. autom|atically|
|00000b80| 0d 09 69 6e 76 6f 6b 65 | 73 20 6f 75 72 20 63 6f |..invoke|s our co|
|00000b90| 65 72 63 69 6f 6e 20 68 | 61 6e 64 6c 65 72 73 2e |ercion h|andlers.|
|00000ba0| 0d 09 0d 09 74 68 69 73 | 20 69 73 20 6e 65 65 64 |....this| is need|
|00000bb0| 65 64 20 62 79 20 74 68 | 65 20 4d 65 6e 75 20 53 |ed by th|e Menu S|
|00000bc0| 68 61 72 69 6e 67 20 54 | 6f 6f 6c 6b 69 74 20 2d |haring T|oolkit -|
|00000bd0| 2d 20 77 68 65 6e 20 74 | 68 65 20 75 73 65 72 20 |- when t|he user |
|00000be0| 70 72 65 73 73 65 73 0d | 09 63 6d 64 2d 70 65 72 |presses.|.cmd-per|
|00000bf0| 69 6f 64 20 74 6f 20 68 | 61 6c 74 20 61 20 73 63 |iod to h|alt a sc|
|00000c00| 72 69 70 74 2c 20 74 68 | 65 20 6e 65 78 74 20 74 |ript, th|e next t|
|00000c10| 69 6d 65 20 77 65 20 67 | 65 74 20 61 20 6d 65 73 |ime we g|et a mes|
|00000c20| 73 61 67 65 20 66 72 6f | 6d 20 74 68 65 0d 09 4d |sage fro|m the..M|
|00000c30| 65 6e 75 20 53 68 61 72 | 69 6e 67 20 73 65 72 76 |enu Shar|ing serv|
|00000c40| 65 72 20 28 75 73 75 61 | 6c 6c 79 20 46 72 6f 6e |er (usua|lly Fron|
|00000c50| 74 69 65 72 29 20 77 65 | 20 72 65 74 75 72 6e 20 |tier) we| return |
|00000c60| 61 6e 20 65 72 72 6f 72 | 2e 20 62 75 74 20 77 65 |an error|. but we|
|00000c70| 20 6f 6e 6c 79 0d 09 72 | 65 74 75 72 6e 20 74 68 | only..r|eturn th|
|00000c80| 65 20 65 72 72 6f 72 20 | 69 66 20 74 68 65 20 63 |e error |if the c|
|00000c90| 61 6c 6c 20 63 61 6d 65 | 20 66 72 6f 6d 20 46 72 |all came| from Fr|
|00000ca0| 6f 6e 74 69 65 72 2c 20 | 77 65 20 75 73 65 20 74 |ontier, |we use t|
|00000cb0| 68 69 73 20 72 6f 75 74 | 69 6e 65 0d 09 74 6f 20 |his rout|ine..to |
|00000cc0| 69 64 65 6e 74 69 66 79 | 20 74 68 65 20 73 65 6e |identify| the sen|
|00000cd0| 64 65 72 20 6f 66 20 74 | 68 65 20 6d 65 73 73 61 |der of t|he messa|
|00000ce0| 67 65 2e 0d 09 0d 09 74 | 68 61 6e 6b 73 20 74 6f |ge.....t|hanks to|
|00000cf0| 20 4b 65 76 69 6e 20 43 | 61 6c 68 6f 75 6e 20 6f | Kevin C|alhoun o|
|00000d00| 66 20 41 70 70 6c 65 20 | 43 6f 6d 70 75 74 65 72 |f Apple |Computer|
|00000d10| 20 66 6f 72 20 70 72 6f | 76 69 64 69 6e 67 20 74 | for pro|viding t|
|00000d20| 68 69 73 20 63 6f 64 65 | 21 20 0d 09 2a 2f 0d 0d |his code|! ..*/..|
|00000d30| 09 4f 53 54 79 70 65 20 | 73 65 6e 64 65 72 3b 0d |.OSType |sender;.|
|00000d40| 09 53 69 7a 65 20 61 63 | 74 75 61 6c 73 69 7a 65 |.Size ac|tualsize|
|00000d50| 3b 0d 09 44 65 73 63 54 | 79 70 65 20 61 63 74 75 |;..DescT|ype actu|
|00000d60| 61 6c 74 79 70 65 3b 0d | 09 4f 53 45 72 72 20 65 |altype;.|.OSErr e|
|00000d70| 72 72 63 6f 64 65 3b 0d | 09 0d 09 65 72 72 63 6f |rrcode;.|...errco|
|00000d80| 64 65 20 3d 20 41 45 47 | 65 74 41 74 74 72 69 62 |de = AEG|etAttrib|
|00000d90| 75 74 65 50 74 72 20 28 | 0d 09 09 49 41 43 67 6c |utePtr (|...IACgl|
|00000da0| 6f 62 61 6c 73 2e 65 76 | 65 6e 74 2c 20 6b 65 79 |obals.ev|ent, key|
|00000db0| 41 64 64 72 65 73 73 41 | 74 74 72 2c 20 74 79 70 |AddressA|ttr, typ|
|00000dc0| 65 54 79 70 65 2c 20 26 | 61 63 74 75 61 6c 74 79 |eType, &|actualty|
|00000dd0| 70 65 2c 20 28 50 74 72 | 29 20 26 73 65 6e 64 65 |pe, (Ptr|) &sende|
|00000de0| 72 2c 20 0d 09 09 0d 09 | 09 28 6c 6f 6e 67 29 20 |r, .....|.(long) |
|00000df0| 73 69 7a 65 6f 66 20 28 | 73 65 6e 64 65 72 29 2c |sizeof (|sender),|
|00000e00| 20 26 61 63 74 75 61 6c | 73 69 7a 65 29 3b 0d 0d | &actual|size);..|
|00000e10| 09 49 41 43 67 6c 6f 62 | 61 6c 73 2e 65 72 72 6f |.IACglob|als.erro|
|00000e20| 72 63 6f 64 65 20 3d 20 | 65 72 72 63 6f 64 65 3b |rcode = |errcode;|
|00000e30| 0d 09 0d 09 72 65 74 75 | 72 6e 20 28 73 65 6e 64 |....retu|rn (send|
|00000e40| 65 72 29 3b 0d 09 7d 20 | 2f 2a 49 41 43 67 65 74 |er);..} |/*IACget|
|00000e50| 73 65 6e 64 65 72 2a 2f | 0d 0d 09 09 0d 00 00 00 |sender*/|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e80| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 46 |.......L|...L...F|
|00000e90| 20 0b 37 20 0c 01 70 03 | 20 0d 86 12 0b ea 48 6e | .7 ..p.| .....Hn|
|00000ea0| 01 fd fc 20 06 20 0c 55 | 20 0d 86 20 0e 01 fd fc |... . .U| .. ....|
|00000eb0| 0c 69 61 63 72 65 63 65 | 69 76 65 2e 63 08 02 00 |.iacrece|ive.c...|
|00000ec0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000ed0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 a9 81 44 d6 00 00 | 00 00 00 00 01 92 09 50 |....D...|.......P|
|00000f00| 01 1d ea 20 08 68 a8 23 | 24 4c 01 fa 88 68 6a 73 |... .h.#|$L...hjs|
|00000f10| 02 18 e0 fd e8 27 72 5c | 6a 8c 4d 01 b9 ee 54 80 |.....'r\|j.M...T.|
|00000f20| 01 00 8a 2e 57 72 36 72 | 6d 01 60 64 37 5e 26 01 |....Wr6r|m.`d7^&.|
|00000f30| 0c 80 4b 01 2d e6 67 01 | 66 14 86 01 28 16 20 02 |..K.-.g.|f...(. .|
|00000f40| 01 60 3a 37 5e 26 01 0c | 80 4b 01 2c ec 67 01 66 |.`:7^&..|.K.,.g.f|
|00000f50| 24 7f 03 b7 e8 00 92 66 | 1c b7 54 01 b0 a8 48 01 |$......f|..T...H.|
|00000f60| 66 12 86 01 28 17 20 02 | 57 72 3e 01 66 8c 23 24 |f...(. .|Wr>.f.#$|
|00000f70| 50 01 1f 52 68 6a 73 84 | 94 65 4e ff 00 00 01 68 |P..Rhjs.|.eN....h|
|00000f80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fa0| 00 00 00 00 00 00 00 06 | 00 04 00 38 00 14 01 d6 |........|...8....|
|00000fb0| 02 40 00 38 00 14 01 d6 | 02 40 a8 20 78 3e 00 00 |.@.8....|.@. x>..|
|00000fc0| 0a 9d 00 00 0a 9d 00 00 | 08 72 01 00 00 00 01 00 |........|.r......|
|00000fd0| 00 00 01 4c 00 00 00 4c | 00 00 00 46 00 eb 4e cc |...L...L|...F..N.|
|00000fe0| 17 e0 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000ff0| 00 0a 03 ed 00 00 00 00 | 00 00 00 eb 4d ac 13 43 |........|....M..C|
|00001000| 72 65 61 74 65 64 20 62 | 79 20 43 4d 61 73 74 65 |reated b|y CMaste|
|00001010| 72 aa 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |r.......|........|
|00001020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+